Calysto Graphics with Scheme

In [1]:
(import-from 'calysto.graphics '*)
Out[1]:
(cm Rectangle px Text Picture Polyline mm Arc BarChart Ellipse Color em Circle ex Polygon Line Pixel Shape pt pc Canvas)
In [4]:
(define canvas (Canvas "Title" '(500 200)))
In [5]:
(define circle (Circle '(250 150) 50))
In [6]:
(circle.draw canvas)
Out[6]: